home *** CD-ROM | disk | FTP | other *** search
/ MacAdvocate 2 / MACADVCT.ISO / mac / Goodies / Fun Stuff / Utilities / UltraFind / AppleScript™ Examples / UTF Get Source < prev    next >
Text File  |  1996-03-15  |  785b  |  24 lines
  1. tell application "UltraFind 2.2"
  2.     clear
  3.     set the fileKind of its searchRoutine to folder
  4.     set the text of the fileName of its searchRoutine to "2.1"
  5.     set the searchType of the fileName of its searchRoutine to nameIs
  6.     scan
  7. end tell
  8. if the result is not equal to 1 then
  9.     display dialog "Cant find Ultrafind's source folder '2.1'"
  10. else
  11.     tell application "UltraFind 2.2"
  12.         copy the accessPath of fileRecord 1 to developFolder
  13.         clear
  14.         set the confineDirectory of its searchRoutine to (developFolder as alias)
  15.         set the text of fileName of its searchRoutine to ".c"
  16.         set the searchType of fileName of its searchRoutine to nameEndsWith
  17.         scan
  18.         set the text of fileName of its searchRoutine to ".h"
  19.         scan
  20.         set the text of fileName of its searchRoutine to ".rsrc"
  21.         scan
  22.     end tell
  23. end if
  24.